home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4663 / rucksack.txt < prev    next >
Text File  |  1998-10-23  |  3KB  |  97 lines
  1.                       16 AND 32 BIT ROUTINE
  2.                    (ATARI STE AND FALCON ONLY)
  3.          ( and it may work on the PC and Amiga too ! TONY )
  4.  
  5.                          THE RUCKSACK#1
  6.  
  7.                      INCLUDES THE DATA FILE,
  8.                      THE STAND ALONE EXAMPLE 
  9.                          AND THIS FILE
  10.                                BY
  11.                            OZZY OMARA
  12.  
  13.  (THE ENDURANCE COLLECTION,WRITTEN FOR THE THIRD DIMENSION DISK)
  14.  
  15.  
  16. THIS DATA FILE IS FREEWARE,ITS YOURS TO DO WHAT EVER YOU LIKE WITH,
  17. DELETE THE OBJECTS IN AREA 1 AND AREA 2 AND USE THE DATA FILE AS A 
  18. FOUNDATION FOR YOUR OWN PROGRAM OR WRITE IT IN TO YOUR EXISTING DATA 
  19. FILE.
  20.  
  21. OBJECTIVE.
  22.  
  23. TO MOVE FROM AREA 1 (VIA A BORDER ICON) TO AREA 2 (RUCKSACK/INVENTORY) 
  24. AND RETURN FROM AREA 2 TO THE SAME POSITION YOU LEFT IN AREA 1.
  25.  
  26. PROCEDURE.
  27.  
  28. CREATE AREA 1 AND AREA 2 AND DEFINE THE ICON BORDER (A GOOD ART 
  29. PACKAGE WILL GIVE YOUR SCREEN X:Y:VALUES).
  30.  
  31.  CONDITION 1
  32.           SETVAR(0,V20)     ------LASER TURNED OFF
  33.           SETVAR(0,V31)     ------TRIGGER VARIABLE SET TO ZERO
  34.           SETVAR(0,V32)     ------
  35.           SETVAR(0,V33)     THESE TEN VARIABLES ARE SET TO THE 
  36.           SETVAR(0,V34)     VALUE ZERO.THIS IS TO ENSURE THAT         
  37.           SETVAR(0,V35)     WHEN THE LOCATION VARIABLES ARE
  38.           SETVAR(0,V36)     PASSED TO THEM, THAT THEY HOLD NO 
  39.           SETVAR(0,V37)     VALUE OTHER THAN ZERO.
  40.           SETVAR(0,V38)
  41.           SETVAR(0,V39)
  42.           SETVAR(0,V40)     ------
  43.  
  44.  CONDITION 2
  45.           IF VAR>?(V18,6)   ------
  46.           AND VAR<?(V17,205)    
  47.           THEN IF VAR<?(V18,28)  USE THIS TEMPLATE FOR ALL
  48.           AND VAR>?(V17,181)     YOUR BORDER ICONS
  49.           THEN SETVAR(0,V17)
  50.           SETVAR(0,V18)
  51.           ADDVAR(10,V31)         
  52.           SOUND(4)
  53.           ELSE
  54.           ENDIF
  55.           ENDIF             ------
  56.           IF VAR=?(V31,10)      TRIGGER VARIABLE
  57.           THEN ADDVAR(10,V31)   ------
  58.           SETVAR(V0,V32)
  59.           SETVAR(V1,V33)    VIEWPOINTS X:Y:Z POSITIONS ARE
  60.           SETVAR(V2,V34)    HELD HERE AS WELL AS HIEGHT AND
  61.           SETVAR(V3,V35)    CURRANT AREA NUMBER
  62.           SETVAR(V4,V36)
  63.           SETVAR(V5,V37)
  64.           SETVAR(V6,V38)
  65.           SETVAR(V7,V39)
  66.           SETVAR(V8,V40)        ------
  67.           DELAY(10)
  68.           GOTO(1,2)     ------- RUCKSACK,ENTRANCE 1 AREA 2
  69.           MODE(1)
  70.           END
  71.           ENDIF
  72.           IF VAR=?(V31,30)  --- TRIGGER VARIABLE
  73.           THEN GOTO(1,V40)  --- THE MAGIC OF VARIABLES
  74.           MODE(1)
  75.           SETVAR(V32,V0)        ------
  76.           SETVAR(V33,V1)
  77.           SETVAR(V34,V2)
  78.           SETVAR(V35,V3)        WHAT DO YOU THINK IS 
  79.           SETVAR(V36,V4)        HAPPENING HERE?
  80.           SETVAR(V37,V5)
  81.           SETVAR(V38,V6)
  82.           SETVAR(V39,V7)        ------
  83.           SETVAR(0,V31)     --- TRIGGER SET BACK TO ZERO
  84.           ELSE
  85.           ENDIF
  86.  
  87. THE RESPONCE.
  88.  
  89.             STICKY BUT FAST.
  90.                              ******           
  91.  
  92. P.S IN THE STAND-ALONE EXAMPLE OF THIS ROUTINE USE THE RIGHT 
  93.     HAND MOUSE BUTTON TO PICK UP THE DOOR PASS.
  94.  
  95.                              ****** 
  96.  
  97.